Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/main.dxr/ì‡ë†_7_startMovie.ls

Text File | 1999-03-23 | 3.9 KB | 140 lines

global glistfile, gphotoloclist, gmyphotonum, gdefaultdata, gsaveddata

on startMovie
  global glistfile
  cursor(4)
  clearGlobals()
  deleteAll(the windowList)
  set checktxt to "Check.txt"
  case the runMode of
    "Author":
      set glistfile to the moviePath & checktxt
    "projector":
      set glistfile to the applicationPath & checktxt
  end case
  checkosd()
  cursor(-1)
  go(1)
  debugstat()
end

on checkosd
  set myio_file to new(xtra("fileIO"))
  openfile(myio_file, glistfile, 1)
  set longtext to readfile(myio_file)
  closefile(myio_file)
  set gdefaultdata to longtext
  set myio_file to new(xtra("fileIO"))
  set spath to getosdirectory()
  if the machineType = 256 then
    set spath to spath & "¥"
  end if
  set spath to spath & "fshock.txt"
  openfile(myio_file, spath, 1)
  set amessage to error(myio_file, status(myio_file))
  if amessage <> "OK" then
    closefile(myio_file)
    set myio_file to 0
    set myio_file to new(xtra("fileIO"))
    createfile(myio_file, spath)
    setfinderinfo(myio_file, "TEXT NICS")
    openfile(myio_file, spath, 2)
    writestring(myio_file, gdefaultdata)
    closefile(myio_file)
    set myio_file to 0
    set gsaveddata to gdefaultdata
  else
    set longtext to readfile(myio_file)
    if char 1 of line 1 of longtext <> "[" then
      alert(amessage)
      alert("ﾃｪﾅｽﾃｨﾃ古‡ﾂｻﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾃε‡ﾂｼﾃｨIﾃｳﾃｾﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ")
      closefile(myio_file)
      set myio_file to 0
      halt()
    else
      set gsaveddata to longtext
      closefile(myio_file)
      set myio_file to 0
    end if
  end if
  set glistfile to spath
end

on writedata
  set num to value(gmyphotonum)
  set atext to gsaveddata
  set oldlist to value(line num of atext)
  set newlist to gphotoloclist
  if not (count(oldlist) = count(gphotoloclist)) then
    alert("ﾃｪﾃｮﾃ‡邃｢ﾃ ﾂｷﾃ‡ﾂｧ")
  end if
  case 1 of
    (num < 1):
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③")
      exit
    (num = 1):
      set gsaveddata to gphotoloclist & RETURN & line 2 to 60 of atext
    (num < 60):
      set gsaveddata to line 1 to num - 1 of atext & RETURN & gphotoloclist & RETURN & line num + 1 to 60 of atext
    (num = 60):
      set gsaveddata to line 1 to 59 of atext & RETURN & gphotoloclist & RETURN
    otherwise:
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③")
      exit
  end case
  set longtext to gsaveddata
  set myio_file to new(xtra("fileIO"))
  openfile(myio_file, glistfile, 2)
  set amessage to error(myio_file, status(myio_file))
  if amessage <> "OK" then
    alert(amessage)
    alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津‡ﾂｼﾃ‡ﾂｵﾃ‡ﾃｽﾃ③" & "ﾃ‡ﾂ湘‡ﾂﾃ‡ﾃ津‡ﾂｻﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
  else
    writestring(myio_file, longtext)
    setfinderinfo(myio_file, "TEXT NICS")
    set amessage to error(myio_file, status(myio_file))
    if amessage <> "OK" then
      alert(amessage)
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津‡ﾂｼﾃ‡ﾂｵﾃ‡ﾃｽﾃ③" & "ﾃ‡ﾂ湘‡ﾂﾃ‡ﾃ津‡ﾂｻﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
    else
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾃｽﾃ③")
    end if
  end if
  closefile(myio_file)
  set myio_file to 0
end

on fukkicommand
  set gphotoloclist to value(line value(gmyphotonum) of gsaveddata)
  sort(gphotoloclist)
end

on shokikacommand
  set gphotoloclist to value(line value(gmyphotonum) of gdefaultdata)
  sort(gphotoloclist)
end

on defadatawrite
  set longtext to gdefaultdata
  set myio_file to new(xtra("fileIO"))
  openfile(myio_file, glistfile, 2)
  set amessage to error(myio_file, status(myio_file))
  if amessage <> "OK" then
    alert(amessage)
    alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津‡ﾂｼﾃ‡ﾂｵﾃ‡ﾃｽﾃ③" & "ﾃ‡ﾂ湘‡ﾂﾃ‡ﾃ津‡ﾂｻﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
  else
    writestring(myio_file, longtext)
    setfinderinfo(myio_file, "TEXT NICS")
    set amessage to error(myio_file, status(myio_file))
    if amessage <> "OK" then
      alert(amessage)
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津‡ﾂｼﾃ‡ﾂｵﾃ‡ﾃｽﾃ③" & "ﾃ‡ﾂ湘‡ﾂﾃ‡ﾃ津‡ﾂｻﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
    else
      alert("ﾃｯﾂ､ﾃｫﾃｰﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾃｽﾃ③")
    end if
  end if
  closefile(myio_file)
  set myio_file to 0
  set gsaveddata to gdefaultdata
end